﻿' <summary>
' BeeWit IDE Entorno de desarrollo Visual para php.
' BeeWitPHP IDE es el único entorno de desarrollo para PHP 
' de tipo WYSIWYG (What You See Is What You Get). 
' ¡Ahora si!, aproveche la potencia del lenguaje PHP 
' y desarrolle más rápidamente gracias a la programación 
' intuitiva de BeeWit.
' Copyright © 2010 Dewins Murillo Garcia 
' EMAIL: dewinsmg@gmail.com
' EMAIL: dewins@beewitsoft.com
' Este Programa es Software Libre: usted puede redistribuirlo 
' y/o modificarlo bajo los términos de la Licencia Publica General 
' GNU como es publicada por la Fundacion de Software Libre; 
' en la 3ra versión de la licencia.
' Este programa es distribuido con la esperanza de que sea útil, 
' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 
' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 
' Vea la Licencia Publica General GNU para mas detalles.
' Usted debe haber recibido una copia de la Licencia Publica General 
' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com
' o en http://code.google.com/p/ajax-beewit-php-ide/
' </summary>
' <remarks></remarks>

Imports System.Data

Public Class clsOpenedProjects
    Private ds As New DataSet("openedprojets")
    Private projects As DataTable

    Public Sub New()
        ds.ReadXml(Application.StartupPath & "\resources\xml\openedprojects.xml")
        projects = ds.Tables("project")
    End Sub

    Public Function GetOpenedProjects() As DataTable
        Return projects
    End Function

    Public Sub AddProject(ByVal Name As String, ByVal Path As String, ByVal ProjectType As String)
        For i = projects.Rows.Count - 1 To projects.Rows.Count - 1
            If Name = projects.Rows(i)("name") Then
                Exit Sub
            End If
        Next

        '    If ProjectRow("name") = Name Then
        '        Exit Sub
        '    End If
        'Next
        Dim NewRowProject As DataRow = projects.NewRow
        NewRowProject("name") = Name
        NewRowProject("path") = Path
        NewRowProject("type") = ProjectType
        projects.Rows.Add(NewRowProject)
        ds.WriteXml(Application.StartupPath & "\resources\xml\openedprojects.xml")
    End Sub
End Class
